object Journal: TJournal
  Left = 198
  Top = 84
  BorderStyle = bsDialog
  Caption = 'Daily Journal'
  ClientHeight = 377
  ClientWidth = 480
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 16
  object Bevel1: TBevel
    Left = 344
    Top = 200
    Width = 97
    Height = 113
  end
  object Shape1: TShape
    Left = 352
    Top = 208
    Width = 81
    Height = 97
    Brush.Color = clBtnFace
    Pen.Color = clRed
    Pen.Style = psInsideFrame
    Pen.Width = 2
  end
  object Label1: TLabel
    Left = 136
    Top = 16
    Width = 41
    Height = 19
    Caption = 'Date:'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 38
    Height = 19
    Caption = 'Title:'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 320
    Top = 16
    Width = 99
    Height = 19
    Caption = 'Date Search:'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 320
    Top = 72
    Width = 96
    Height = 19
    Caption = 'Title Search:'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 280
    Top = 256
    Width = 25
    Height = 25
    Hint = 'Prevous Record'
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F3333333333333303333333333333337333333330000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object DelButton: TSpeedButton
    Left = 368
    Top = 232
    Width = 49
    Height = 49
    Glyph.Data = {
      26020000424D260200000000000076000000280000001C0000001B0000000100
      040000000000B0010000CE0E0000D80E00000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
      66666666676666660000666666666666666666667B101B160000666666666666
      66666667B101B1B600006666666666666666667B101B1B060000666666666666
      666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
      66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
      67022201B0B0000600006666666666667B0022000B0000660000666666666667
      B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
      B1B1B0200006666600006666666672001B1B1000006666660000666666670222
      01B1B000066666660000666666780022001B00006666666600006666678D8D02
      20B0000666666666000066667008D800200000666666666600006667FDF08D80
      20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
      0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
      06666666666666660000600FDFDF000066666666666666660000600DFDF00006
      6666666666666666000060000000006666666666666666660000660000000666
      66666666666666660000}
    OnClick = DelButtonClick
  end
  object SpeedButton3: TSpeedButton
    Left = 280
    Top = 288
    Width = 25
    Height = 25
    Hint = 'Next Record'
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F333333333333000333333333333377733333330000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object Label6: TLabel
    Left = 360
    Top = 216
    Width = 65
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Delete'
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 360
    Top = 280
    Width = 65
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'Record'
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 8
    Top = 344
    Width = 140
    Height = 27
    Caption = 'Daily Journal'
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object EntryDate: TLabel
    Left = 184
    Top = 16
    Width = 64
    Height = 19
    Caption = '__-__-__'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Title: TLabel
    Left = 48
    Top = 56
    Width = 49
    Height = 19
    Caption = 'Empty'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DateSearch: TComboBox
    Left = 320
    Top = 40
    Width = 145
    Height = 26
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 18
    ParentFont = False
    TabOrder = 2
    OnClick = DateSearchClick
  end
  object TitleSearch: TComboBox
    Left = 320
    Top = 96
    Width = 145
    Height = 26
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 18
    ParentFont = False
    TabOrder = 3
    OnClick = TitleSearchClick
  end
  object OKBtn: TBitBtn
    Left = 376
    Top = 330
    Width = 93
    Height = 31
    Caption = 'Close'
    Default = True
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = OKBtnClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000D80E00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555205555555555555222055555555555522205555
      5555555222220555555555222222055555555722052220555555720555522055
      5555555555522205555555555555220555555555555552205555555555555572
      0555555555555557205555555555555552205555555555555555}
    Margin = 8
    Spacing = -1
  end
  object HelpBtn: TBitBtn
    Left = 328
    Top = 330
    Width = 25
    Height = 31
    Caption = ' '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
  end
  object BitBtn1: TBitBtn
    Left = 320
    Top = 144
    Width = 145
    Height = 41
    Caption = 'New Entry'
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object Entry: TMemo
    Left = 8
    Top = 88
    Width = 265
    Height = 225
    Lines.Strings = (
      'Entry')
    ScrollBars = ssVertical
    TabOrder = 5
  end
end